(FILECREATED " 5-JUL-83 12:48:46" {PHYLUM}<GABRIEL>STAK.;1 887    

      changes to:  (VARS STAKCOMS)
		   (FNS TAK STAK))


(PRETTYCOMPRINT STAKCOMS)

(RPAQQ STAKCOMS ((FNS TAK STAK)
		 (BLOCKS
		  (STAKBLOCK TAK STAK
			    (ENTRIES TAK)))
		 (SPECVARS X Y Z)))
(DEFINEQ

(TAK
  (LAMBDA (X Y Z)                                            (* JonL " 5-JUL-83 12:45")
   (DECLARE (SPECVARS X Y Z))
    (STAK)))

(STAK
  (LAMBDA NIL                                                (* JonL " 5-JUL-83 12:45")
	  (DECLARE (SPECVARS . T))
    (COND
      ((NOT (ILESSP Y X))
	Z)
      (T (PROG ((X (PROG ((X (SUB1 X))
			  (Y Y)
			  (Z Z))
		         (RETURN (STAK))))
		(Y (PROG ((X (SUB1 Y))
			  (Y Z)
			  (Z X))
		         (RETURN (STAK))))
		(Z (PROG ((X (SUB1 Z))
			  (Y X)
			  (Z Y))
		         (RETURN (STAK)))))
	       (RETURN (STAK)))))))
)
(DECLARE: DOEVAL@COMPILE DONTCOPY

(SPECVARS X Y Z)
)
(PUTPROPS STAK COPYRIGHT (NONE))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (215 778 (TAK 225 . 342) (STAK 344 . 776)))))
STOP